Ch 9.htm

назад | содержание | вперед

Запись данных

Данные в файл последовательного доступа записываются с помощью операторов print # и write #. Оператор write # дополнительно автоматически вставляет в файл разделители, но не дает гибкости при управлении форматированием данных. Как можно было заметить при изучении функций чтения данных, каждая из функций записи работает в паре с определенной функцией чтения. Для оператора print # это функции Input или Line Input #, а для оператора write #t — это Input #.

> Совет

> Рекомендуется при применении операций записи/чтения данных из файлов использовать именно такие пары функций и операторов записи/чтения.

Рассмотрим оператор print #. Он имеет следующий синтаксис:

Print #fileNumber, [outputlist]

где:

- fileNumber — номер файла, аналогичный номеру файла в операторе open;
- outputlist — список выражений или переменных для записи.

Оператор write ft имеет следующий синтаксис:

Write #fileNumber, [outputlist]

где:

- fileNumber — номер файла, аналогичный номеру в операторе open;
- outputlist — список выражений или переменных для записи.

При выполнении записи данных в файл оператор write # после каждой строки автоматически вставляет символ перевода каретки CHR(13) и символ новой строки CHR(10).

Заменим код в нашем приложении MyFileProject на следующий:

Dim strFileName As String

Dim strFileContent As String

Dim nFreeFile As Integer

Private Sub cbStart_Click()

nFreeFile = FreeFile

cdCommonDialog.ShowSave

strFileName = cdCommonDialog.FileName

If strFileName <> "" Then

Open strFileName For Output As nFreeFile

strFileContent = txtFile.Text

Print #nFreeFile, strFileContent

Close

End If

End Sub

В полученном приложении данные, введенные в текстовое поле, будут записываться оператором print # в файл, найденный при помощи диалогового окна сохранения файлов.

назад | содержание | вперед